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SBEGIN NTODISPLY,000,NFSNETWORK,<NETWORK DISPLAY> 


UTI ET IIT itil iii iii litt iii ii titiiiiiiiitititiiiititiiiitiiiiiiiit. 
COPYRIGHT (c) 1978, 1980, 1982, 1984 B 


DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
® 
® 
® 
® 
® 
® 
OFTWARE OR “ANY OTHER 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
wy 

TRANSFERRED. * 
*® 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. : 
® 

* 

® 

* 

ey 
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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Facility: RMS 
Abstract: 


This module communicates witn the file access listene, at the remote | 
node to display attributes of the specified file. | 


Environment: VAX/VMS, executive mode 


SOOCOCCOCOOSOSOCOSOOCOOCCOSOOCOOOSSSOOCSSOSOOCOOOCOOOCOOOOOOOOOOoOoOO 

NOUS WN HO OD NA UE WN 9 OO NAUE WIN 3 O OOO NIA E WW @ O OO NAU EWI O OODNOU Ewin 
+ 
+ 


PUPS SVS B® BS BBS EB BE ANNAN NII NII AI PINININPINPINPIPINID 2 PO OO es es 


3 : Author: James A. Krycka, Creation Date: 01-JUN-1981 | 
6 : Modified By: | 
0 : 03-003 JAKO134 ycka 04-MAR-1984 
0 : Correction to vo3-001" to properly handle the receipt of a DAP 

33 : Attributes message without a Name message in the sequence. 

00 : v03-002 JAK0130 JA Krycka 06-JAN-1984 | 
00 ; Return alternate success of RMS$_OK_NOP if remote Syston does 
00 3 not support the DAP DISPLAY function instead of an RMS$_SUPPORT | 
bb 5 error. 

00 ; V03-001 KRM0094 K Malik 29-MAR-1983 

00 : Request Resultant Name message and fill in user Name block 

BS ; appropriate). 

00 ; 

00 : 


v02-003 JAK0066 JAKrycka  _ 07=0CT-1981 | 
Reject SDISPLAY request while in file transfer mode. | 
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v02-002 JAK0063 JA Krycka 17-AUG-1981 
Add support for the Revision Date and Time XAB. 
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DECLARATIONS SEP 4 RMS.SRCINTODISPLY.MAR; 1 
-SBTTL DECLARATIONS 


Include Files: 


SDAPPLGDEF ; Define DAP prologue symbols 

SDAPHDRDEF ; Define DAP message header 

SDAPCNF DEF ; Define DAP Configuration message 

SDAPACCDEF ; Define DAP Access message 

SDAPCTLDEF ; Define DAP Control message 

SIFBDEF : Define IFAB symbols 

SNWADEF ; Define Network Work Area symbols 
Macros: 

None 


Equated Symbols: 


ASSUME DAP$Q_DCODE_FLG EQ 0 


Own Storage: 
None 
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YOeeb80 NTSDISPLAY - PERFORM NETWORK DISPLAY rus -SEP-1984 t % +38: 23 YAMS SRCINTODISPLY MAR: 1 ° 
0 9¢ -SBTTL NTSDISPLAY = PERFORM NETWORK DISPLAY FUNCTION 
96 ; 
99 i : NTSDISPLAY = engages in a DAP dialogue with the remote FAL to display 
4 $ pyar routes of the specified file according to the XABs chained” to the 
0 100 : 
: 10 3; Calling Sequence: 
00 108 ; BSBW NTSDISPLAY 
000 104; 
B88 19 : Input Parameters: 
000 109 : RB FAB address 
44 108 ; RG IFAB address 
000 109; R10 IFAB address 
0000 110; 11 Impure Area address 
$335 111 anptiett tou 
3; Implic nputs: 
0000 118 3 
0000 114 ; User FAB 
0000 115 ; DAP SYSCAP 
0000 116 ; NWASV_FTM_RETRV 
0000 117 ; NWASV_ FIM” STORE 
0000 118; 
0000 119 ; Output Parameters: 
0000 120; 
0000 121; RO Status code (RMS) 
0000 =«=(1 ¢ 3 R1i-R7 Destroyed 
0000. = ; AP Destroyed 
0000 124; 
0000 125 ; Implicit Outputs: 
0000 \$6 3 
000 1 3 User ALL, DAT, FHC, KEY, PRO, RDT, SUM XABs 
000 128; User NAM (resultant name string) 
0000 129; 
0000 130 ; Completion Codes: 
0000 131; : 
0000.~—=o1 ¢ 3 Standard RMS completion codes 
0000 1335; | 
000 134 ; Side Effects: 
000 135 ; 
000 ! $ : None 
$60 1 8 i-- 
44 1 
000 140 NTSDISPLAY:: ; Entry point 
44 141 $TSTPT Tear tae : 
57 3¢ a9 00 Be 16 MOVL te _ My 2 aig R7 ; Get address of NWA (and DAP) 
11 +€1 QOOA 14 BBC Hatt) A : Branch if remote FAL does not support 
10_ 28 A7 be 144 te my) »ALTSUC ; ersphay attributes function 
1A EO F 145 BBS AS(V_FTM_RETRV,(R7),- ; Branch if wee transfer mode retrieval 
06 ig 166 eR Hi a” : in opr ogres 
67 8 £0 1 14 BBS teeg 2 FTM_STORE,(R7),- ; Branch if file transfer mode storage 
8 18 168 ; _in progress 
. 2 1 14 BRB BUILD MASK ; Proceed 
19 150 ERRFTM: RMSERR FT : Declare file transfer mode error 
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NTSDISPLAY = PERFORM NETWORK DISPLAY FUN 5-SEP=-1984 16:20:4 RMS.SRCINTODISPLY.MAR; 1 (3) 
05 1€ 151 RSB ; Exit with RMS code in RO 
:, ee § ALTSUC: RMSERR OK_NOP ; Return alternate success code 
05 4 : i RSB 3; Exit with RMS code in RO 
155 ;¢ 
1 § ; Build ws ae field request mask which will be used in the Control message 
157 ; to request that optional DAP messages be returned by FAL. For $DISPLAY these 
3 1 8 ; are the ATT, ALL, KEY, PRO, SUM, and TIM messages. (Note that the Attributes 
5 123 3; message will supply information to update the FHCXAB). 
0 19) i- 
188 BUILD_MASK: : Build NWASW_DISPLAY 
56 Be 0 164 CLRL R6 ; Indicate this is not a close operation 
FFD6" 30 00 165 BSBw NTSSCAN_XABCHN ; Scan user XAB chain and check FAL's | 
3° A 196 ; capabilities; request mask put in R2 | 
03 50 8 O2A 16 BLBS RO,5$ 3; Branch on success 
0085 1 Q02D 168 BRw FAIL ; Branch (failed to complete scan) 
20 00c6 C7? 91 0030 169 5$ CMPB NWASB_ORG(R7) ,ANWASK_IDX; Branch if IDX organization 
03 13 0035 170 BEQL 10$ $ 
52 OA AA 0037 171 BICW2 #<<DAPSM_DSP_SUM>!- ; Ignore these XABs in chain 
003A 1% <DAPSM_DSP-KEY>!- ; | 
BOA 17 0>,R2 ; 
FFC3* 30 OQO03A 174 108 BSBW NTSSCAN_NAMBLK ; Scan user NAM block and check 
75 50 €9 Q03D0 175 BLBC RO, FAIL : FAL's capabilities; update 
0040 176 3 request mask 
0000 C7 —s $2 69 0040 177 MOVW R2,NWASW_DISPLAY(R7) ; Save request mask 
68 13 0045 178 BEQL suc ; Exit if there are no XABs to fill 
0047 179 
0047 180 ;+ | 
0047 181 ; Build and send DAP Control message to partner. 
0047 136 s= 
0047 3 
0047 184 SEND_CTL: ; (required message sequence) 
0047 185 SSETBIT #NWASV_LAST_MSG,(R7) ; Declare this Last message to block 
50 04 pO 0048 186 MOVL #DAPSK_CTL_MSG,RO ; Get message type value 
FFAF* 30 QO4E 187 BSBW NT$BUICD_HEAD 3 Construct message header | 
85 10 90 0051 188 MOVB #DAPS$K_DISPLAY,(R5)+ ; Store CTLFUNC field 
85 20 90 0054 189 MOVB #DAPSM“DISPLAY2,(R5)+ : Store CTLMENU field | 
51 0000 C7 3¢ 0057 190 MOVZWL NWASW DISPLAY(R7),R1  : Get request mask 
FFAI® 30 O05C 191 BSBW NTSCVT _BN4 EX ; Store DISPLAY as an extensible field 
FF9E' 30 OOSF 1398 BSBW NTSBUICD TAIL : Finish building message 
FF9B’ 30 B068 19 BSBW NTSTRANSAIT ; Send Control message to FAL 
4D 50 —s EY BRe 194 BLBC RO, FAIL ; Branch on failure 
O68 196 34 
O96 13 3; Receive DAP Attributes message from partner and update the user FHCXAB. 
50) 199 ; 
06 0 RECV_ATT: : (optional--must be requested) 
E1 0068 1 BBC #DAP$V_DSP_ATT,- ; Branch if Attributes message was not 
00D0 C7 06A : NWASW_DISPLAY(R7) ,- ; requested 
E 060 RECV_EXT_ATT 3 
88 4 SSETBIT #DAPSK_ATT_MSG,DAPSL_MSG_MASK(R7) : 
5 ; Expect response of Attributes message 
FFBA* 30 7 $ BSBW NTSRECEIVE ; Get reply from FAL 
3¢ 50—iséED 76 _ BLBC RO, FAIL ; Branch on failure 
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30 4 43 BSBW NTSUPDATE_FHC ; Update user FHCXAB 
7¢ 10 :* 
7¢ 11 : Receive DAP Extended Attributes peceoges from partner and update the user 
7¢ 1g i ; ALL, DAT, KEY, PRO, RDT, and SUM XABs. 
th: 15 RECV_EXT_A ; (optional--must be requested) 
30 7¢ 18 eeou: NTSRECV_EXT_ATT i Process Extended Attributes messages 
E9 4 18 BLeC RO, FAIL ; Branch on failure 
1 i+ 
a08 Q ; Receive DAP Resultant Name message from partner. 
ae 
$08 : RECV_NAME : ; (optional--must be requested) 
E1 008 4 BBC #DAPSV_DSP_NAM,- Branch if Name message was not 
0084 5 NWSW DISPLAY (R7),- : requested 
0088 § SSETBIT #DAPSK_NAM_MSG,DAPSL _MSG_ MASK (R7) 
44 +4 8 3; Expect resgense y Name message 
30 008D 9 BSBW NTSRECEIVE ; Get reply from F 
E9 009 0 BLBC RO L 3; Branch on failu he 
DO 009 31 MOVL  IFBSL_FWA_PTR(R9).R10 ; Get FWA address (NTSDECODE_NAM needs 
$0 0097 3 BSBW NTSDECODE NAM ; it) & process resultant name string 
0 QO9A 3 BSBW aes LLL aA ; Fill in user NAM block (destroys R7 
E9 009D 234 BLBC RO,FAIL ; Branch on failure 
DO OOAO 235 MOVL IFBSL_NWA_PTR(R9) ,R7 ; Restore NWA address 
DO O0A4 36 MOVL R9,R10 3; Restore IFAB address 
vane 
Q0A7 35 i Receive DAP Acknowledge message from partner. 
a Te 
Q0A7 4 RECV_ACK required message) 
Q0A7 4 SSETBIT #DAPSK_ACK_MSG,DAPSL _MSGIMASKCR 
OOAC 44 ; Expect response of Acknowledge message 
30 OOAC 45 BSBW NTSRECEIVE : Get reply from FAL 
E9 OOAF $6 BLBC RO,FAIL 3; Branch on eh as 
008 47 SUC: RMSSUC ; Return succe 
05 Boe? $8 FAIL: RSB 3 Exit with RMS code in RO 
0086 50 END : End of module 
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$$.PSECT_EP : 0 DAPSM_TMP1$ = 000 

SSRMSTEST z a DAPSM_TMP2$ = FFF 

SSRMS_PBUGCHK s 19 P$Q"DCODE FLG 

SSRMS_ TBUGCKK = ° DAP$Q-F ILESPEC 44 

SSRAS E = 4 DAPS$SQ_KEY 4 

ALTSU 1f R 01 AP$Q_MSG_BUF 1 0 

BUILD. S$ 2 1 DAPS$Q_MSG_BUF2 1 
DAPSB_ACCFUNC 4 DAP$Q_PASSWORD 5 
DAPSB_ACCOPT 0004 DAP$Q_SYSCAP ¢ 
DAPSB_BITCNT 000 3 DAPS$Q_SYSPEC 
DAPSB_BLKCNT R808 DAPS$V_DISPLAY = 00000011 
DAPSB_CTLFUNC 90004 DAP$V_DSP_ATT 2 09 900 
DAP$B_DCODE _F ID 0 1 APSV_DSP-NAM s 0 
DAP$B_DCODE_ MAC 4 DAP$W_BuUFSIZ 0000040 
AP$B_DCODE MSG QOOO1A DAPSW_CTLMENU 0000044 
DAP$B_DECVER 4444 944 Dd “DISPLAY1 000004C 

> ~ECONUM 0000045 DAPS$W_DISPLAY2 0000054 
DAPS$B_FAC 94 4 8 DAPSW_PARTNER 00000006 
DAPS$B_FILESYS 000004 DAPS$SW_VERSION 00000004 
DAPS$B_FLAGS 00000931 ERRFTA 00000019 R 01 
DAPSB_KRF 00000047 FAIL 00000085 R 01 
DAP$B_LEN256 ease aite: IFBSL_FWA_PTR = 00000038 

D LENGTH 00000033 IFBSL_NWA_ PTR = 0000003¢ 
DAP$B_OSTYPE 00000042 NTSBUTLD_READ eeeeeeee =X (1 
DAP$B_RAC 00 O0e8 NTSBUILD’ TAIL aeeeeeee =X (01 
DAPSB_SHR 00000043 NTSCVT_BN4 EXT aeeeeeee =X 01 
DAP$B_STREAMID 000000 3 NTSDECODE RAM aerenese =X (1 
DAPSB_TYPE 000000 NTSDISPLAY 00000000 RG 01 
DAP$B_USRNUM 00000046 NTSRECEIVE aeeneeee = X (01 
DAP$B_USRVER 00000048 NTSRECV_EXT ATT aeneeeee = X (01 
DAP$B_VERNUM 00000044 NTSSCAN_NAMBLK eeeeeere =X (01 
DAP$B_X FIELD 00000024 NTS$SSCAN_XABCHN eeeereee =X 8 01 
DAP$C_BCN 000000C0 NTSTRANSMIT eeeeeeee = =X 01 
DAP$K_ACK_MSG = 000000 NTSUPDATE_FHC aeeeeeee = X 01 
DAPSK_ATT_MSG 0000000 NWASB_ALLRABCNT 0000011C¢ 

APSK_ 000000C NWASB_DAP_RAC 000000C9 
DAPSK_CTL_MSG = 00000004 NWASB_FILESYS 000000C5 
DAPS$K_DISPLAY = 00000010 NWASB_KEYXABCNT 0000011D 
APSK_NAM_ = 0000000F NWASB_NETSTRSIZ 0000016F 
DAPSK_SEQ_ACC = 000000 NWASB_NODBUF S12 00000168 
APS$L_C 000000 NWASB_ 000000C6 
DAPSL_CRC_RSLT 0000002 NWASB_OSTYPE 000000C4 
DAPSL_DCOBE _STS 0000018 NWASB_RF 000000C7 
DAPSL_MSG_MASK 0 000 NWASB_RMS_RAC tS 
AP$L_ROP 5 NWASC_BLN 0000800 
DAPSL_SSPWA 000008 NWASK_BLN 00000800 
“TE 009 NWASK—1DX 2 90000020 
DAPSM_BITCNT = 0000000 NWASL~ALLXABADR 00000100 
DAPSM_BLKCNT = 000 $ 4 NWASL~DATXABADR 00000104 
DAPSM_DISPLAY2 = 2 NWASL DEV 000000C0 
DAPSM_DSP_ = 99 0 NWASL~FHCXABADR 90000108 
DAPSM_DSP_KEY = 0000000 NWASL_KEYXABADR 0000010¢ 
DAPSM_DSP~ SUM = : 3 NWASL_MSG_MASK 00000004 
GE = NWA$L~PRORABADR 8 110 

DAP$M_GO = 1 NWASL-RDTXABADR 000114 
DAPSM_MSE s 001 NWASL-SAVE_FLGS 00 138 

DAPSM_ SEGMENT = 0000004 NWASL—SUMXABADR 0000011 
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Psect synopsis “SEP=1984 16:20:45 CRMS.SRCINTODISPLY.MAR; 1 (3) Pse 
¢ amor ecee eros eonmeece + 
: Psect synopsis ! 
¢ewenremewnn eer errant 
PSECT name Allocation PSECT No. Attributes PSt 
- ABS. 00000000 <( an 99 ( 0.) NOPIC  USR CON ABS LCL NOSHR HOEXE NORD NOWRT NOVEC BYTE | . 
NF SNE TWORK 0000 308 ( 182.) 01 ¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE NHS 
SABSS 0000080 ( 2068.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR- EXE RD WRT NOVEC BYTE SAL 
gown encre es were etree wn econ = + 
: Performance indicators H | 
Phase Page faults CPU Time Elapsed Time Phi 
Initialization : 00:00:00.09 90:00: 00.96 In: 
C processing 1 99:98 :80-80 00:00:03.08 Con 
Pass 237 00:00:07.9 00:00:21.49 Pas 
Symbol table sort 0 00:00:00.95 00:00:01.29 Sy! 
Pass 2 59 Bh OS a ES Pars 
Symbol table output 21 00:00:00.16 8:00:00 87 Sy" 
Psect synopsis output 00:00:00.02 00:00:00.02 Pst 
Cross-reference output oa Fae Be $8 309: 99-88 Cre 
Assembler run totals 47 00:00:11.1 00:00:31.08 Ass 
The working set Limit was 1350 pages. | The 
37804 bytes (74 pages) of virtual memory were used to buffer the intermediate code. 18° 
There were 40 pages of symbol table space allocated to hold 665 non-local and 6 local symbols. The 
50 source Lines were read in Pass 1, producing 13 object records in Pass 2. 40¢ 
pages of virtual memory were used to define 21 macros. 14 
Gewoceccecoeeececcococecocco} | 
: Macro library statistics : | 
Macro Library name Macros defined | Mac 
_$255$DUA28: CRMS .OBJIJRMS.MLB; 1 13 _% 
$255$DUA28: CSYSLIBISTARLET.MLB; 2 4 | $ 
TOTALS (all Libraries) 17 To! 
895 GETS were required to define 17 macros. 38! 
There were no errors, warnings or information messages. Tha 
MACRO/LIS=LIS$:NTODISPLY/OBJ=OBJ$:NTODISPLY MSRCS$:NTODISPLY/UPDATE=(ENHS:NTODISPLY) +LIB$:RMS/LIB MA\ 
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